/bx1 {
set %ttalk *1
set %lentalk $len(%ttalk)
set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
:loop
set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
inc %p
if ( $mid(%p,1,%i) !=  ) { inc %c }
if ( %c > 6 ) { set %c 1 }
if ( $mid(%p,1,%i) != $null ) { goto loop }
/inc %lentalk 2
set %line $str(%lentalk,*)
say 10,10 %line 
say 10,10*1,1  %o 10,10*15,15*
say 10,10 %line 15,15*
say 0,0*15,15 %line 
}
/bx2 {
set %ttalk *1
set %lentalk $len(%ttalk)
set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
:loop
set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
inc %p
if ( $mid(%p,1,%i) !=  ) { inc %c }
if ( %c > 6 ) { set %c 1 }
if ( $mid(%p,1,%i) != $null ) { goto loop }
/inc %lentalk 2
set %line $str(%lentalk,*)
say 14,14 %line 
say 14,14*1,1  %o 14,14*15,15*
say 14,14 %line 15,15*
say 0,0*15,15 %line 
}
/bx3 {
set %ttalk *1
set %lentalk $len(%ttalk)
set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
:loop
set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
inc %p
if ( $mid(%p,1,%i) !=  ) { inc %c }
if ( %c > 6 ) { set %c 1 }
if ( $mid(%p,1,%i) != $null ) { goto loop }
/inc %lentalk 2
set %line $str(%lentalk,*)
say 15,15 %line 
say 15,15*1,1  %o 15,15*14,14*
say 15,15 %line 14,14*
say 0,0*14,14 %line 
}